home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / mbio.mod < prev    next >
Text File  |  1995-11-25  |  2KB  |  110 lines
  1. IMPLEMENTATION MODULE MBIO;
  2. FROM InOut IMPORT OpenOutput,WriteInt,CloseOutput,WriteLn,
  3.                   OpenInput,CloseInput,ReadInt,Done;
  4.  
  5. FROM Liste IMPORT MakeList,List,Next,GetValue,First,AtLast,Empty,EnterElement,
  6.                   AppendElement,SetValue,KillList;
  7.  
  8. FROM MindMach IMPORT  FrequenzGangARRAY,Change;
  9.  
  10.  
  11. VAR ResultArray: FrequenzGangARRAY;
  12.  
  13.  
  14.  
  15. (*VAR MBList :List;*)
  16.  
  17. PROCEDURE LoadList;
  18. VAR i,InPut:INTEGER;
  19.     s:ARRAY [0..255] OF CHAR;
  20.  
  21. BEGIN
  22.    s:='*.DAT';
  23.    OpenInput(s);
  24.    IF Done THEN
  25.       KillList(MBList);
  26.       MakeList(MBList);
  27.    END(*IF*);
  28.    WHILE Done DO
  29.        i:=1;
  30.        REPEAT
  31.          ReadInt(InPut );
  32.          ResultArray[i]:=InPut;
  33.          i:=i+1;
  34.        UNTIL (i>7) OR ~Done;
  35.        IF Done THEN
  36.                AppendElement(MBList);
  37.                SetValue(MBList,ResultArray);
  38.        END(*IF*);
  39.    END(*WHILE*);
  40.    CloseInput;
  41. END LoadList;
  42. PROCEDURE MergeList;
  43. VAR i,InPut:INTEGER;
  44.     s:ARRAY [0..255] OF CHAR;
  45.  
  46. BEGIN
  47.    s:='*.DAT';
  48.    OpenInput(s);
  49.    WHILE Done DO
  50.        i:=1;
  51.        REPEAT
  52.          ReadInt(InPut );
  53.          ResultArray[i]:=InPut;
  54.          i:=i+1;
  55.        UNTIL (i>7) OR ~Done;
  56.        IF Done THEN
  57.                EnterElement(MBList);
  58.                SetValue(MBList,ResultArray);
  59.                Next(MBList);
  60.        END(*IF*);
  61.    END(*WHILE*);
  62.    CloseInput;
  63. END MergeList;
  64.  
  65.  
  66. PROCEDURE SaveList;
  67. VAR I:INTEGER;
  68.     s:ARRAY [0..255] OF CHAR;
  69. BEGIN
  70.   s:='*.DAT';
  71.   OpenOutput(s);
  72.   IF Done THEN
  73.      First(MBList);
  74.      Done:=GetValue(MBList,ResultArray);
  75.      FOR I:=1 TO 7 DO
  76.          WriteInt(ResultArray[I],5);
  77.      END(*FOR*);
  78.      WriteLn;
  79.       REPEAT
  80.          Next(MBList);
  81.          Done:=GetValue(MBList,ResultArray);
  82.          FOR I:=1 TO 7 DO
  83.              WriteInt(ResultArray[I],5);
  84.          END(*FOR*);
  85.          WriteLn;
  86.       UNTIL  ~Done OR AtLast(MBList);
  87.   END(*IF*);
  88.   CloseOutput;
  89. END SaveList;
  90.  
  91. PROCEDURE RunExtern;
  92. BEGIN
  93.        First(MBList);
  94.        Done:=GetValue(MBList,ResultArray);
  95.        IF Done THEN
  96.           Change(ResultArray);
  97.        END(*IF*);
  98.        REPEAT
  99.          Next(MBList);
  100.          Done:=GetValue(MBList,ResultArray);
  101.          IF Done THEN
  102.             Change(ResultArray);
  103.          END(*IF*);
  104.       UNTIL  ~Done OR AtLast(MBList);
  105. END RunExtern;
  106.  
  107. BEGIN
  108. MakeList(MBList)
  109. END MBIO.
  110.